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| EDTSCHMEXCOM = execute certain change-mode comm 18-se 7730071388 § 2 38758 VAX-11 Bliss-32 V 
| 4-Sep-1984 12:22:2 DISKSVMSMA 
0001 ZTITLE ‘EDTSCHMEXCOM = execute certain change-mode commands’ 
OOS MODULE EDTSCHMEXCOM ( : Execute certain change-mode commands 
a jDENT = 'v04-000' ! File: CHMEXCOM.BLI Edit: JBS1035 
gue yee 
sat iseaeeuseaeeeeenaneatensneenecerecrererernrererernennntneernnsenenertentnnes 
'® 
000 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
001 !® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSE:TS. \ 
00% ‘* ALL RIGHTS RESERVED. 
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FACILITY: EDT == The DEC Standard Editor 
4 ABSTRACT: 

0036 i This module executes the change mode commands which 

id } do not take an entity. 

4 ENVIRONMENT: Runs at any access mode - AST reentrant 

0041 AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

004 i MODIFIED BY: 
4 0044 4 
5 0045 ! 1-001 - Sriginet, DJS 04-Feb-1981. This module was created by 
6 0046 : racting the routine EXECUTE con, ire module CHANGE. YBLI. 
7 0047 ! 1-002 - Regularize headers. JBS 25-Feb-19 
8 004 ! 1-003 - Fix module nam JBS 02-Mar-1981 
9 0049 ! 1-004 - change SPLIT LINE to EDTSSSPLT_LNINS . JBS 30-Mar-1981 
0 0050 ' 1-005 = Use the ASSERT macro. JBS 01-Jun-19 
1 0051 ! 1-006 - Remove explicit pournal ing, JBS 18-Jun-1981 
¢ B036 ! 1-007 = Use new message codes. JBS 04-Aug-1981 

005 ! 1-008 - Add bell verb. STS 11-Aug-1981 
4 0054 ! 1-009 = Add the date verb. STS" ~Aug-1981 
5 0055 ! 1-010 = Add verbs to set mt default verb. STS 21-Sep-1981 
6 0056 ! 1-011 = Add verbs for toggle select and delete select. STS 23-Sep-1981 
7 0057 ! 1-012 - Added command to set success to 0 if verb was select and select 
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VAX-11 Bliss-32 V4.0-74 
14-Sep-1984 


range was already active. I needed this status for search and 
select. STS 28-Sep-1981 

Add a return value to indicate end of journal fits. JBS 02-0ct-1981 

Remove parameter from EDTS$SUB_CMD call. SMB 28-Oct-1981 

Revise Tab Compute calculation when SHFL not zero. SMB 06-Nov-1981 

Add range checking to ASC command. 405 10-Feb-1982 

Correct spell ng of error code. JBS 12-Feb-1982 

Add a flag for EXT command mode entered. se 26-Feb-1982 

Rewrite word wrapping code. JBS 07-Apr-1982 

Give messages on error returns from setting search strings. JBS 04-May-1982 
Set a flag if control C actually aborts something. JBS 2i-may-1982 

Change setting of output format routine. SMB 30-Jun-19 

Set format ou put to TI_LWRSTR for EXT output. SMB 02-Jul-1982 

Make KS move the cursor even_if PST_CNT = 0. SMB 22-Jul-1982 

Add the XLATE command. STS or: 2 

Flag screen changed for HELP, SHL and SHR. JBS 13-Sep-1982 

Remove EDT$$G_LN_NO for new screen update Logic. JBS 29-Sep-1982 

Remove external declaration of EDTSSFMT_LIT, not used. JBS 05-Oct-1982 
Remove call to SC_INIT, set a {eg instead. SMB 06-Oct-1982 

Change EDT$S$G_SCR_CHGD to EDTS$G_SCR_REBUILD in a few places. JBS 09-Oct-1982 
Rebuild the screen data base if selection is too complex. JBS 02-Dec-1982 
Revise oe of EDTS$G_SHF. JBS 14-Dec-1982 

Put WPS and VT¢é20 support under a conditional. JBS 10-Feb-1983 

Remove declarations of routines which aren't called. SMB 23-Feb-1983 

Add new value for EDT$$G_SCR_CHGD. JBS 02-Mar-1983 
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EDTSCHMEXCOM = execute certain change-mode comm 13-sep-1984 4 23:52:48 VAX-11 Bliss-32 V4.0-74 Page 3 El 
Declarations 14-Sep-1984 12:22:29 DI SKSVMEHASTER. CEDT.SRCJCHMEXCOM.BLI;1 (2) vi 
p08? } RSBTTL ‘Declarations’ 
0087 1 ! TABLE OF CONTENTS: 
0088 1! 
0089 1 
+344 : REQUIRE ‘FDTSRC:TRAROUNAM'; 
03% 1 FORWARD ROUTINE 
oe 1 \ EDTSSEXE_CHMCMD1; ! Execute the verbs which do not take an entity specification 
oe33 | 
0534 1: INCLUDE FILES: 
0535 1! 
0536 (1 
Bea! 1 REQUIRE ‘EDTSRC:EDTREQ'; 
i 
pore 1 LIBRARY ‘EDTSRC:SUPPORTS'; 
0674 #1 
0675 1! 
0676 1 ! MACROS: 
0677 1! 
0678 1! NONE 
0679 1! 
0680 1 ! EQUATED SYMBOLS: 
0681 1! 
0682 1! NONE 
0683 1! 
0684 1 ! OWN STORAGE: 
0685 1! 
0686 1! NONE 
0687 1! 
0688 1 ! EXTERNAL REFERENCES: 
0689 1! , 
0690 1! In the routine 
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1 +84 ZSBTTL "EDTSSEXE_CHMCMD1 = execute certain change-mode commands’ 
: 069 GLOBAL ROUTINE EDTSSEXE_CHMCMD1 ( ! Execute certain change-mode commands 
4 0694 VERB ' Command number 
5 0695 COUNT, ' Repeat count (char value for ASC) 
6 069 OPERAND ! Pointer to start of operand 
7 069 EXPLICIT ' 1 = the count is explicit 
8 0698 ds 
] 069 
0 0700 '++ 
1 S } FUNCTIONAL DESCRIPTION: 
‘ 0 This routine executes a command which is not of the verb entity form. 
' FORMAL PARAMETERS: 
0 VERB command number 
0 COUNT repeat count (char value for ASC) 
0 OPERAND Pointer to start of operand for insert, insert_cc etc. 
EXPLICIT 1 = the count is explicit 


IMPLICIT INPUTS: 
EDT$$G_TI_SCROLL 
EDTS$$G_SCR_LNS 
EDTS$T_DEL_CH 

T$$G_DEL_CHLEN 

T$$G_DIR 

$$T_DEL_L 


T$$G_PS7_CNT 
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L7SEL“LN 
$$A_SEL~POS 
G~SHF 


$T-LN_BuF 
SSA_LN-PTR 
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EDTSCHMEXCOM = execute certain change-mode comm 15-Sep-1984 23:52:4 VAX-11 Bliss-32 V4.0-74 Page 5 Et 
000 EDTSSEXE_CHMCMD1 = execute certain chenge-sode 14-Sep-1984 12:22:2 DLEKSVMGMASTERSCEDT SRCICHMEXCOM.BLIG?® (3) vi 
; #178 0748 1! 
; 179 749 «1! EDTS$G_SHF 
; 190 £20 1} EDT$$G_TAB_LVL 
> «(181 731 1! EDTSSA_FMT_CUR 
3 ise Bf 36 1! EDTSS$SA_LN_PTR 
; Ve Bre 1} EDTS$$G_VERT 
> 184 0754 1! EDTS$G_DFLT_VERB 
>; 185 0755 1! ESTSSA_SEL_BuF 
; «(186 o728 1! EvT$$G_CC_BONE 
; «187 0757 1! EDT$$G_SCR_CHGD 
; 1e8 0758 1! EDT$$G_SCR_REBUILD 
; «#4189 162 1! 
; 190 760 1 ! ROUTINE VALUE: 
; 191 0761 1! 
; 9 0762 1! 0 = failure, 1 = success, 2 = end of journal file 
; WW 0765 1! 
> 194 0764 1 ! SIDE EFFECTS: 
s 395 0765 1! 
> 196 0766 1! MANY 
: 197 0767 1! 
; 198 0768 1 !-- 
: 199 0769 1 
; 200 0770 § BEGIN 
; er 0771 
: 20 0772 2 EXTERNAL ROUTINE 
: 20 0773 2 EDTSSINS_STR, ! Insert a string of characters at the current position 
> 204 0774 2 EDTSSINS_CHS, ! Insert a string of characters which may include carriage returns 
3 soe grt? 2 EDTSSMOV_TOCOL, ! Insert tabs and spaces 
; 207 0777 5 XIF BLISS (BLISS32) 
; 208 0778 2 ZTHEN - 
3 $9) fhe § er EDTSSGET_XLATE, ! call translation routine 
; $i 0781 2 
; 2i2 0782 2 EDTSSUNDL, ! Insert the contents of an undelete buffer 
; 213 0783 2 EDTSSMSG_BELL : NOVALUE, ' Output a messoge to the terminal with a warning bell 
: 214 0784 2 EDTSSCHK CC, ! Check to see if a CTRL/C has been typed 
> 215 0785 § EDTSS$LN_DEFK, ' Define a key for keypad editing 
3 $18 0786 EDTSSPST_CMD, ' Execute the paste command 
: 217 0787 2 EDTSS$SUB_CMD, ' Execute the SUBSTITUTE command 
3 648 0788 2 EDTSSEXT CMD ! Extend command handler 
Bok IIA ele eee 
: 221 0791 EDTSS$TI-~WRSTR, i Write to terminal unformatted 
; § 184 EDTS$SRPC_CHGDLN, ! Declare current Line as changed 
i $5 0794 EDTSscs Cente.” | Rove fetes chorecter 
; % ' Move left a character 
: $2 {4d dbs ey! CPUCSPOS, foupute curser position 
; ! Try doing word wrappin 
: sf Ore? EDTS$SC_POSCSIF pus cwele pos ition buffer 
$ os ! End reverse video 
i 329 0799 EDTS$SC~SETSCLLREG, i Set the scrolling region 
oe ee STE STopthe teh. perches Schr ree 
; 38 Bas EDTSS$SET_SEASUBSTR ! Setup SUBSTITUTE strings 
; 234 L 0804 2 XIF SUPPORT_WPS 


| 
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EDTSCHMEXKCOM EDTSCHMEXCOM = execute certain change-mode comm 18-2 1984 23:52:4 VAX-11 Bliss-32_ V4.0-74 Page 6 
v04-000 EDTSSEXE_CHMCMD1 = execute certain chenge-node 1228601984 $3:33:3 DISKSVMSMASTER:CEDT.SRC CHMEXCOM.BLI:1° (3) 
H 5 p60% THEN 
; SRO EDTSSRING_ BELL : NOVALUE, ! Ring the bell 
3 8 0808 EDTSSINS_BATIM ! Insert date and time 
; 9 0809 2FI 
; 240 0810 
> 241 0811 : 
: tg pets 
> 24 081 exten, 
> 246 0814 EDTS$G_TI_SCROLL, ' Scrolling terminal 
: 245 0815 EDTS$G_SCR_LNS, ! Number of screen Lines 
: seo b518 EDTSSA_FMT_WRRUT, ! Holds address of output format routine 
: 247 081 EDTS$G_EXT_MOD, ! 1=in EXT command mode 
; 248 0818 EDTS$T_DEL_CH : BLOCK ! Deleted character buffer. 
: 249 0819 CCASALCOCATION (2)], 
; 250 0820 EDTSS$G_DEL_CHLEN, ! Length of deleted character buffer 
> 251 0821 2 EDTSS$G_DIR, ! The current direction. 
: S26 bes§ 2 EDTSST _DEL_LN : BLOCK ! Deleted Line buffer. 
; 082 CCASALCOCATION (257)1, 
> 254 0824 EDT$$G_DEL_LNLEN, ! Deleted Line length. 
3 @99 0825 EDTS$$G_DIR_MOD, ! The directional mode. 
3; a 0826 2 EDTSST DEL WD : BLOCK ! Deleted word buffer. 
s @o7 0827 2 CCASALCOCATION (81)], ‘ 
; 258 0828 2 EDTS$G_DEL_WDLEN, ! Length of del word string. 
: 259 0829 2 EDTS$G_EXI, ' Change mode has been exited. 
; 260 0830 § EDTS$$G_PST_CNT, ! No. of characters pasted. 
; 261 0831 EDTSSA_RPL_STR, ! Address of a string. 
; pees 2 EDTS$$G_RPL_LEN, ! Length of replace string. 
; 26 0835 2 EDTS$G_SEA_STRLEN, ! Length of search string 
; 264 0834 2 EDTS$A_SEA_STR, ! Address of search string. 
3; 265 0835 2 EDTSSA_SEL_BUF, ' Pointer to select buffer. 
: 266 0836 § EDTSSA_OLD_SEL, ! Pointer to old select buffer 
: 267 0837 EDTSSL_SEL_LN : LN_BLOCK, ' Relative Line number of select. 
; 268 0838 2 EDTSSA_SEL_POS, ' select position. : 
; ee? 0839 2 EDTS$G_SHF, ! The number of columns shifted. 
3 2 0840 2 EDTS$$G_TRUN, ! Q = SET NOTRUNCATE 
3 ary 0841 EDT$$G_SEA_LEN, ' Length of search string. 
; $i pare EDTSSL_TOP_LN : LN_BLOCK, ! The forced to sop Line. 
$ 6a 084 EDT$$G_VERT ' Last entity was VERT flag. 
> 276 0844 EDT$$G_EXITD, i Exit from EDT “& | 
; 275 0845 EDT$$G_SCR_CHGD ! Set if screen must be initialized and/or repainted } | 
; 276 B86 EDT$$G_SCR-REBUILD, ' Set if text part of screen must be rebuilt from work file 
: e277 084 EDT$$G_TAB_SIZ, ! Structured tab size 
; 278 848 EDTSS$A_CUR_BUF : REF TBCB_BLOCK, ' The current buffer tbcb 
; 279 849 EDTS$G_TAB_LVL, ! Structured tab level. 
; 280 0850 EDT$$G_TI_TYP ' Terminal type. 
> 281 0851 EDTSST_FMT_BUF, i Format buffer 
: 282 pee¢ EDTSSA_FMT_CUR, ! Pointer into format buffer 
: 283 085 EDTS$T_LN_BuF, ' Current Line buffer 
; ae ogee EDTSSA_LN_PTR, ! Current character pointer 
; 286 L 0856 2 XIF SUPPORT_WPS 
; st 0857 2TH 
: 288 0858 EDT$$G_DFLT_VERB, ' Default verb 
; 289 + F84 2FI 
; ew 860 : ; 
; 291 0861 EDT$$G_CC_DONE; ! Set to 1 if control C aborts something 
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oes 600 EDTSSEXE_CHMCMD1 = execute certain chenge-node 14-Sep-1984 $3:33:38 DISKSVMSMASTER: tt 1 SRCSCHMEXCOM. BLI; + (3) 
: 29 086 
; 29 86 '¢ 
; 3e He) ! _Ddeclare the message codes to be used. 
3 4 5e8 MESSAGES ((SELALRACT, INVSUBCOM, CLDNOTALN, INVASCCHR, INVSTR)); 
; 298 0868 CAL 
; 299 494 SUCCEED 
: 300 870 START POs i POS BLOCK, 
4 01 0871 END_POS : POS_BCOCK, 
3 8 Bre NUM_L LINES; 
: 30 87 
; 304 874 '¢ 
3 be Bare If verb is SUBSTITUTE, set up the search and substitute strings. 
3 07 0877 
; 08 0878 IF (.VERB EQL VERB_K_SUBS) 
: 309 0879 “i 
; 319 0880 SUCCEED = EDTSSSET SEASUBSTR (.EDTSSA_ SEA. STR, ! 
$ 11 0881 -EDT$$G_SEA_LEN, 
; \¢ 088 -EDTS$$A_RPL “Str, 
H 1 088 “EDTS$G~ ~RPL_LE® 
; 14 0884 ELSE 
: 315 0885 SUCCEED = 1; 
3 318 0886 
: 17 0887 IF ( NOT .SUCCEED) 
: 318 0888 2 
; #319 0889 2 EDTSSMSG_BELL (EDT$_INVSTR) 
: 320 0890 2 ELSE 
: 321 0891 2 
3 356 089 ¢ 
3 32 089 BEGIN 
: 324 0894 3 | 
; 325 0895 3 CASE .VERB FROM VERB_K_SEL TO LAST_K_VERB OF 
: 326 0896 3 SET 
s Ser 0897 3 
: 328 0898 3 CVERB_K_UNDC] : 
3 44 0899 4 N 
s 330 0900 4 SUCCEED = EDTSSUNDL (EDTSST_DEL_CH, .EDTS$G_DEL_CHLEN); 
: 331 0901 END; 
; 332 0902 
; 35 090 CVERB_K_UNDW] : 
: 334 0904 4 N 
; 335 0905 4 SUCCEED = EDTSSUNDL (EDTS$T_DEL_WD, .EDT$$G_DEL_WDLEN);: 
: 336 0906 3 END; 
s 337 0907 ; 
; 338 0908 CVERB_K_UNDL) : 
3 te 0909 4 
3 40 0910 4 SUCCEED = EDTSSUNDL (EDTS$T_DEL_LN, .EDTS$G_DEL_LNLEN); 
: 1 0911 END; 
3 ri} oa 
: 4 091 CVERB_K_INSERT] : 
3: 344 0914 4 
; 45 bore 2 SUCCEED = EDTSSINS_CHS (.OPERAND, .EDTS$$G_SEA_LEN); 
; “$ O39 4 IF .SUCCEED THEN SUCCEED = EDTS$SWORD_WRAP (); 
: 348 0918 4 
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END; 
CVERB_K_XLATE]) : 
BEGIN 


ZIF ZBLISS (BLISS32) 
THEN 


3 
execute certain change-mode comm 15-Sep-1984 
1 = execute certain change-mode 14-Sep-19 


4 


$338 338 VAX-11 Bliss-32 Fed bs Pa 
:22:2 DISKSVMSMASTER: CEDT.SRCJCHMEXCOM.BLI;1 


SUCCEED = EDTSSGET_XLATE (.OPERAND, .EDT$$G_SEA_LEN); 


ZELSE 
EDTSSMSG 
RETURN (0 
2FI 
END; 


CVERB_K_CC) : 
BEGIN 


peut (EDTS$_INVSUBCOM) ; 


= = EDTSSINS_CHS (ZREF (CHSRCHAR (.OPERAND) = %C'@"), 1); 


CVERB_K BACK) : 
EDT$$G_DIR_MOD = 
EXITLOOP; 

CVERB_K apvd : 
EDT$$G_DIR_MOD = 
EXITLOOP; 


CVERB_K_DLWC) : 
BEGIN 


XIF SUPPORT_WPS 
XTHEN 
EDTS$G_DFLT_VERB 


ee 
nn 
a 


EXITLOOP; 

END; 
CVERB_K_DUPC) : 

BEGIN 


%1F SUPPORT_WPS 
ZTHEN 


EDT$$G_DFLT_VERB 
aI 


EXITLOOP; 
END; 


CVERB_K_DMOV]) : 
BEGIN 


DIR_BACKWARD; 


DIR_FORWARD; 


= VERB_K_CHGL; 


= VERB_K_CHGU; 


' set up default verb to change case lower 


! set up default verb to change case upper 


3 
OM = execute certain change-mode comm 18-sep-19 4 


EDTSCHMEXCOM EDT SCHMEXC 23:52:4 VAX=11 Bliss-32_ V4.0-74 Page 9 
vO4 EDTSSEXE_CHMCMD1 = execute certain change-mode 14-Sep-1984 12:22:2 DISKSVMSMASTER:CEDT.SRCIJCHMEXCOM.BLI;1 (3) 
: 406 L 976 4 XIF_SUPPORT_wPS 

: 40 977 4 X%THEN 

; 408 af8 4 EDTSSG_DFLT_VERB = VERB_K_MOVE; ! set up default verb to move 
it = oo om 

: 411 098) 4 EXITLOOP; 

fe Bay i 

; 4g 0384 ; CVERB_K EXIT, VERB_K_QUIT) : 

; 416 0986 4 EDT$$G_EXI = 1; 

; 418 O38 4 IF (.VERB EQL VERB_K_QUIT) THEN EDT$$G_EXITD = 1; 

: 420 0990 4 RETURN (1); 

; : 1 344 ; END; 

: 4 § 0993 ; (VERE K PASTE] : 

: 158 0995 4 SUCCEED = EDTSSPST_CMD (); 

Be 8 me 

: 428 0998 3 CVERB_K_SEL) : 

oY vets 

; 431 1001 5 IF _(.EDTSSA_SEL_BUF NEGA 0) 

: 133 1003 5 BEGIN 

> 434 1004 § EDTSSMSG_BELL (EDT$_SELALRACT); 

: 435 1005 5 SUCCEED = 0; 

: 436 1006 5 END 

: ORs 1908 LSE GIN 

> 439 1009 5 MOVELINE (EDT$$A_CUR_BUF CTBCB_CUR_LINJ, EDT$S$L_SEL_LN); 
> 440 1010 5 EDTS$A_SEL_BUF =~.EDT$$A_CUR BOF; 

i 441 1011 2 EDTS$A-SEL_POS = .EDTS$A~LN_PTR; 

> 46 1918 g IF (.EDTS$A_OLD_SEL NEQA 0) THEN EDT$$G_SCR_REBUILD = 1; 
5 444 1014 5 

He E oe 

: 447 1017 4 EXITLOOP; 

eee os 

; 430 1920 ; CVERS_K_REF) : 

: 452 10s8 4 EDT$$G_SCR_CHGD = 2; ! Initialize the terminal and repaint the screen 
> 453 1023 4 EXITLOOP; 

i BEY 3 

: 456 1028 (VERB_K_BELL) : 

: 43 1058 4 —— 

HCE fe geen 

> 461 1031 4 EDTSSRING_BELL (); 

> 462 1032 4 XFI 


na 


3 
EQ TERI ECON EDTSCHMEXCOM = execute certain change-mode comm 15-Sep-19 4 $3338 :48 VAX-11 Bliss-32 ye sO enee Page 10 
v04- EDTSSEXE_CHMCMD1 = execute certain change-mode 14-Sep-1984 12:22:2 DISKSVMSMASTER:CEDT.SRCJCHMEXCOM.BLI;1 (3) 
: 463 1033 4 
> 464 1034 4 EXITLOOP; 
; 465 1035 END; 
; 466 10 $ 
: 467 10 VERB_K_DATE] : 
; 468 1038 4 BEGIN 
; 469 1039 4 
: 470 L 1040 4 XIF SUPPORT_WPS 
; 471 1041 4 XTHEN 
3 67 1e8 4 SUCCEED = EDTSSINS_DATIM (); 
: 47 U 10435 4 XELSE 
3; 474 U ot 4 0 
: 475 10465 4 XFI 
: 476 1046 4 
; 477 1047 4 : 
; 478 1048 3 END; 
: 479 1049 
; 480 1050 3 CVERB_K_DEFK] : 
: 481 1051 4 
; 48 1936 4 SUCCEED = EDTSSLN_DEFK (); 
: 48 1053 4 EXITLOOP; 
> 484 1054 H 
> 485 1055 
; 486 1056 CVERB_K_TOP) : 
; 487 1057 4 
; 488 1058 4 MOVELINE (EDTSS$A_CUR_BUF CTBCB_CUR_LIN], EDTS$$L_TOP_LN); 
; 489 1059 4 EXITLOOP; 
: 490 1060 : : 
3 «491 1061 
; 49 1006 3 CVERB_K_HELP) : 
; 49 1063 4 BEGIN 
> 494 1064 4 
: 495 1065 4 LOCAL 
: 496 1066 4 KPAD_STATUS; 
; 497 1067 4 
; 498 1068 4 EDTSS$SC_NONREVID (); 
; 499 1069 4 EDTSSSTOP_WKINGMSG (); 
; 500 1070 4 KPAD_STATOS = EDTSSKPAD_HLP (); ; 
; 20 ta : EDTS$G_SCR_CHGD = 1; ! Repaint the screen 
; $03 1978 4 IF (.KPAD_STATUS EQL 0) THEN SUCCEED = 2; 
; 504 1074 4 
; 505 1075 4 EXITLOOP; 
; 506 1976 ; END; 
: yor 107 
; 308 1078 3 CVERB_K_ASC) : 
; 509 1079 4 BEGIN 
, 310 1080 4 
, ST 1081 5 IF ((.COUNT GTR 255) OR (.COUNT LSS 0)) 
; aig 44 4 THEN 
; 1083 5 BEGIN 
; 514 1084 5 EDTS$MSG_BELL (EDT$_INVASCCHR); 
s S19 1085 5 SUCCEED = 0; 
; 516 1086 5 END 
; 517 1087 4 ELSE 
; 518 1088 5 BEGIN 
3; 519 1089 5 EDTSSINS_STR (ZREF (.COUNT), 1); 


— 
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3 
EDTSCHMEXCOM EDTSCHMEXCOM = execute certain change-mode comm 15-se 1984 23:52:4 VAX-11 Bliss-32 V4.0-74 Page 11 
042600 EDTSSEXE CRMCMD = execute certain chenge-sode 12-86-1884 $3:33:38 DLSKSVMSMASTERSCEDT SRCSCHMEXCOM.BLI~9° 3) 
: 0 1090 5 EXITLOOP; 
; 1 1091 4 END; 
; § 1 35 4 
: 109 END; 
; 4 1O9e 
; ? 199? Z CVERB_K_ SUBS, VERB_K_SN) : 
; 7 1099 4 SUCCEED = EDTSSSUB_CMN (); 
; 528 1098 END; 
3 Sey 1099 
; 3a 1100 CVERB_K_KS] : ! Adjust for KED SUBSTITUTE. 
; 531 1185 2 fo BEGIN 
: 238 1108 4 ! The cursor should move left one even if G_PST_CNT is zero 
oe 
; 3a 1106 5 IF (.EDT$$G_DIR EQL DIR_BACKWARD) AND (.EDTS$$G_PST_CNT NEQ 0) 
s Sor 1107 4 THEN 
; 538 1108 4 
; 539 1109 4 DECR I FROM .EDT$$G_PST_CNT - 1 TO 0 DO 
; 540 1110 4 DTSSCS_LEFT () 
; 541 1111. 4 
: 246 ayi¢ 4 ELSE 
> 54 1113 4 EDTSSCS_LEFT (); 
; 544 1114 4 
> 545 1115 3 END; 
; 546 1116 3 
; 547 1117 3 CVERB_K_SHL] : 
> 548 1118 4 N | 
; eH 1138 : EDT$$G_SHF = .EDTS$$G_SHF + 8; 
: 33) M$) : IF ((.EDTS$G_SHF GEQ 32767) OR (.EDTS$G_SHF LSS 0)) THEN EDTS$G_SHF = 0; 
; 358 1138 : EDT$$G_SCR_CHGD = 1; ! repaint the screen 
3 399 1125 4 IF ( NOT .EDT$$G_TRUN) THEN EDTS$$G_SCR_REBUILD = 1; 
3 336 1126 4 
3 Sor 1127 3 END; 
; 558 1128 3 
; 559 1129 3 CVERB_K_SHR] : 
: 560 1130 4 N 
; 38) 113) : EDTSS$G_SHF = .EDTSSG_SHF - 8; 
: 568 1138 2 IF ((.EDTS$G_SHF GEQ 32767) OR (.EDTS$G_SHF LSS 0)) THEN EDTSS$G_SHF = 0; 
3 $22 M13? ; EDT$$G_SCR_CHGD = 1; ! repaint the screen 
s Ser 1137 4 IF ( NOT .EDTS$G_TRUN) THEN EDT$$G_SCR_REBUILD = 1; 
; 568 1138 4 
: 569 1139 3 END; 
; 37e 1140 ; 
, STi 1141 CVERB_K_TAB] : 
; 276 1106 4 BEGIN 
; of 1143 4 
3: 574 1144 4 LOCAL 
s 379 1145 4 TAB_COUNT; 
; 576 1146 4 
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xecute certain change-mode comm 15-Sep-1984 23 
= execute certain change-mode 14-Sep-1984 3: : 35 DISKSVMSMASTER:CEDT. She CHMEXCOM.BLI; fy 


IF (CHSPTR_NEQ (.EDTSSA_LN PTR, CHSPTR (EDTSS$T_LN_BUF)) OR 


—— 


re 
—e 


SOOO OO OOOO OOOO 0000 00 09 09 09 09 09 09 SII SINS SIN NOP AAA AAAAA OA UIIUIIUUTTUT 
Det et et eh ah ee ee eh abel ee et Do WP YW oo oe oo ot or a or ot or ot nt, |, YP ot ot a? ot oP 11 


(.EDT$$G_TAB_SIZ EQC OF) 
..— 8 
TAB_COUNT = .EDTS$$G_TAB_LVL*.EDT$$G_TAB_SIZ; 


Bus cece = EDTSSMOV_TOCOL (.TAB_COUNT); 


CVERB_K TC) : 
BEGIN 


LOCAL 
COL, 
LIN; 
IF (.EDT$$G_TAB_SIZ EQL 0) THEN EXITLOOP; 


EDTSSSC CPUCSPOS (LIN COL); 
COL + .EDTS$G_SHF 


IF ((.COL MOD ‘envs08, 100,812) NEQ 0) 
a og ne. (EDT$_CLDNOTALN) 
EDTSSG_TAB_LVL = (MAX (0, .COL))/.EDT$$G_TAB_SIZ; 


EXITLOOP; 
END; 


CVERB_K_TDJ : 
EDTS$G_TAB_LVL = MAX (0, .EDTSSG_TAB_LVL = 1); 


VERB. TI) : 
EDT$$G_TAB_LVL 
END; 


-EDTS$G_TAB_LVL + 1; 


CVERB_K ExT : 


@ lOTS$sc_rurcscur ©; 


IF ve ED Tess. TI_TYP EQL TERM_VT52) OR : 
(,EDTS$G_TI-TYP EQL TERM-VT100)) 


EN 
EDTSSA_FMT_WRRUT = EDTSSTI_WRSTR 


BEGIN 
EDTSSSTOP_WKINGMSG ( 
EDTSSA_FMT_WRRUT = cdissti _WRLN; 
END; 

EDTSSRPL 

EDT$$A_C 


VAX-11 Bliss-32 V4.0 


CHGDLN. ( 
OR_BUF cieie. CHAR_POS] = CHSDIFF (.EDTSS$A_LN_PTR, CHSPTR (EDTS$T_LN_BUF)); 


3 | 
EDTSCHMEXCOM EDTSCHMEXCOM - execute certain change-mode comm ise 1984 23:52:4 VAX-11 Bliss-32 V4.0-74 Page 13) 
4~000 EDTSSEXE_CHMCMD1 = execute certain chenge-node 12-8ep-19 4 $3 :33:38 DLEKSVMGMASTERSCEDT  SRCTCHMEXCOM.BLI0%? (3) | 
5; ¢ 1206 4 EDTS$G_EXT_MOD = 1; 
3; 655 1 §¢ 4 EDTSSERT_CMD (); 
: 6 1206 4 EDTS$G_ERT_MOD = 0; 
: 6 1207 4 EDTS$SA-FMT-CUR = EOTSST_FMT_BUF; 
; 638 1208 4 EDTSSGET TRILN (); | 
; 639 4 4 EDT$SA_LN_PTR = CHSPTR (EDTSS$T_LN_BUF, .EDTS$A_CUR_BUF [TBCB_CHAR_POS]); | 
; poh , V 2 IF (.EDTSS$G_TI_SCROLL) THEN EDTSSSC_SETSCLLREG (0, .EDT$$G_SCR_LNS); | 
; £08 1 i$ 4 EXITLOOP; 
3; 644 1214 END; | 
: Bde 1516 CVERB_K DESELJ | 
; $c9 1 i3 4 BEGIN 
; 648 1218 4 | 
: 649 L 1219 4 XIF SUPPORT_WPS 
; 650 1220 4 XTHEN 
; 651 1221 4 EDTSSA_SEL_BUF = 0; ! No select range active 
3 $26 U1 ¢ 4 XELSE 
3; @ U1 4 0 
; 654 12246 4 FI 
3; 655 1225 4 
; 656 1226 END; 
; 657 1 st 
; 658 1228 CVERB_K_TGSEL] : 
; 659 \$¢8 4 BEGIN 
: 660 1230 4 | 
; 661 L 1231 4 ZIF SUPPORT_WPS 
i 668 1252 4 XIHEN | 
; 66 1233 4 
3; 664 1234 5 IF (.EDTSSA_SEL_BUF EQLA 0) 
: 665 1235 4 THEN 
: 666 1236 5 BEGIN 
3; 667 1237 5 MOVELINE (EDTSSA_CUR_BUF CTBCB_CUR_LIN], EDTS$L_SEL_LN); 
3 668 1238 5 EDT$SA_SEL_BUF =". EDTS$S$A_CUR_BOF; 
3 rg \s73 : EDTSSA_SEL_POS = -EDT$SA_LN_PTR; 
; 671 1241 3 IF (.EDT$$A_OLD_SEL NEQA 0) THEN EDT$$G_SCR_REBUILD = 1; 
3 67 1328 5 END 
3; 674 iste 4 ELSE 
; 675 1245 4 EDTSSA_SEL_BUF = 0; 
; 676 1246 4 
3; 677 U 1247 4 XELSE 
: 678 U 1248 4 0 
; 679 12469 4 XFI | 
3; 680 1250 4 
; 681 1251 END; 
; 68 1 26 
; 68 125 CVERB_K_CLSS) : | 
3 6684 1254 4 BEGIN 
3; «6685 1255 4 
; 686 L1 36 4 XIF SUPPORT_WPS 
; 68 1257 4 ZTHEN 
; 688 1258 4 EDT$$G_SEA_STRLEN = 0; ! reset search string 
3; 689 U 1523 4 XELSE 
; 690 U 1260 4 0 


PPE re PETE TETETETLILILirLreierer eee eee ee eee reer rere rerere rere lees lrerererere ere y 
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ra 
EDTSCHMEXCOM EDTSCHMEXCOM = execute certain change-mode comm 18-se 1984 23:52:48 VAX-11 Bliss-32 V4.0-74 Page 14) EC 
v04-000 EDTSSEXE_CHMCMD1 = execute certain chenge-node 14-Sep-19 4 $3:33:58 DISKSVMSMASTERSCEDT. SRCICHMEXCOM.BLIG%® (3) | ve 
: 691 1261 4 FI 

; FF 1 86 4 

: 69 126 END; 

> 694 1264 

: 695 1265 COUTRANGE) : | 

; 6% 1266 ASSERT (0); 

; 697 1267 TES; 

; 698 1268 

; +44 : +4 IF (.EXPLICIT NEQ 0) THEN COUNT = .COUNT = 1; 

: 49) : a IF (.SUCCEED NEQ 1) THEN EXITLOOP; 

: 70 1598 IF EDTSSCHK_CC () | 

> 704 1274 THEN | 

: 705 1275 4 BEGIN 

s Te 1578 4 

: 707 1277 4 IF (.COUNT GTR 0) THEN EDTS$$G_CC_DONE = 1; | 

; 708 1278 4 

; 709 1279 4 EXITLOOP; 

; 710 1280 3 END; 

; ii 1281 3 

; re 1¢86 3 END 

ewe 1283 2 UNTIL (.COUNT LEQ 0); 

> 716 1284 2 

: 715 1285 2 !+4 

3 rig 1908 § } Unless the command was advance or backup, turn off the EDT$$G_VERT flag. 

: 718 1288 2 

: ahs 1$89 § IF ((.VERB NEQ VERB_K_ADV) AND (.VERB NEQ VERB_K_BACK)) THEN EDTS$$G_VERT = 0; 

s Tel 1291 2 RETURN ( SUCCEED); , 

; 722 1292 #1 END; ! of routine EDTSSEXE_CHMCMD1 


-TITLE EDTSCHMEXCOM EDI$SCHMEXCOM = execute certain cha 
: nge-mode comm 
-IDENT \V04-000\ 


.EXTRN EDTSSINS_STR, EDTSSINS_CHS | 
-EXTRN EDTSSMOV-TOCOL, EDTS$GET_XLATE | 
-EXTRN EDTSSUNDC, EDTSSMSG BELL 
TEXTRN EDTSSCHK_CC, EDTSSLA_DEFK | 
-EXTRN EDTSSPST-CMD, EDT$$SOB_CMD | 
-EXTRN EDTSSEXT“CMD, EDTS$KPAD_HLP 

-EXTRN EDTSSTI_QRLN, EDTSSTI_WRSTR 

~EXTRN EDTSSRPC_CHGDLN | 
-EXTRN EDTSSGET-TXTLN, EDTSSCS_LEFT | 
-EXTRN EDTS$$SC_CPUCSPOS | 
-EXTRN EDTSSWORD_ WRAP, EDTSSSC_POSCSIF 

“EXTRN EDTSS$SC_NONREVID | 
-EXTRN EDTS$SSC"SETSCLLREG 

-EXTRN EDTSSSC~FULLSCLL 
-EXTRN EDTSSSTOP_WKINGMSG | 
.EXTRN EDTS$SET_SEASUBSTR | 
~-EXTRN EDTSSRING_BELL, EDTSSINS_DATIM 

-EXTRN EDT$$G_TI~SCROLL 

-EXTRN EDTSS$G_SCR_LNS, EDTSSA_FMT_WRRUT 
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:52:4 VAX=11 Bliss-32 V4.0-7 Page 

M = execute certain change-mode comm 1 -sep-1 4 fk KSVMSMASTER: cM t’she CHMEXCOM.BLI; 
yoer000 EDISSEXE CHMCHDS <vexecute certain change-mode 14-Sep 1984 ine DISK poe 
12D BR : O36? : 
000000006 00 ef 09 a F158: MOVL #1, EDTS$6_DIR_MOD £0366, 
000000006 00 93 b0 4 8 16$: MOVL EDTS$$G_DFLT_VERB 0982 
000000006 00 04 00 ape 178: MOVE : EDTS$G_DFLT_VERB aH 
000000006 09 D4 OO1GA 188: CLL DT$$G_DFLT_VERB 097% ; 
000000006 99 oF bt 018s Rap na. oo 0968 ; 
7 12 0015¢ BNEG = 20 | 
MOVL , EDTS$G_EXITD 9990 | : 
000000006 98 a < aH 20$ MOV ‘i. RO ; et : 
000000006 00 QQ 8 00169 21s: CALLS 40, EDTSSPST_CMD : 
BA DS OOlte O88; STL) UEDTSSA_SEL_BUF ; 1001 ; 
af i $0176 PUSHIL a SELALRACT + 1004, ; 
000000006 Ot FB ool? CALLS #1, EDTSSMSG_BELL * 1005 r 
000000006 00 g) Fe aE CLRL sutcEED s 1008 
86 DO 00187 258; MOVL. _-EDTSSA_CUR _BUF, R6 ¢ 1009 ; 
Hs 86 28 OOIBA MOVES. #b, BCROD pelsgures iN 1010! 
serves ot aon g$ 80 Boise owt Staga' eR PTat~eDtss4_seL_ros is) | 
sown SSE SBE A ‘Boies eae | 
+ 3 tts MOVE { EDT$$G_SCR_REBUILD : ; 
000000006 00 01 D0 001A9 MOVL SCR_ : 0999. 
82 D0 0182 S78: MOVE «#2. EDTSSG_scR_CHGD 1054 | 
osuceonnees ay ta the 288: CALLS #0, EDTSSRING_BELL ; 1981 
000000006 00 : - : : 
79 «+11 Q01C2 30$: BRB : 1042 : 
: CALLS #0, EDTSSINS_DATIM : 
000000006 00 00 FB 001C4 A #06 2 : 
74 11 OO1CB 32$: BRB : 1052 : 
: ALLS #0, EDTSSLN_DEFK : | : 
000000006 99 oS fe Soich S8b: CAs 49, eoratin Pare 
88 DO OO1D9 348: MOVL_ _EDTSSA_ CUR. Beses 
28 66 5B oolbe C3 #6, 6(RO),~ EDTSSi~ TOP_LN 2 1057 | ; 
00 06 AO 06 28 0o1D¢ MOV #6, ‘ 1057. 
Aennepen 8 FB OOIE? S08; PAPLS AO. EDTSSSC_NONREVID s 1008 | ; 
So00000¢ 00 80 FB OO1EE CALLS. oO: EDTSSSTOP_WKINGHSG g ISSR | : 
999000006 90 OY bO ants HOWL) #1 EDTSSC, $c SCR. CHGD 1858 | : 
000000006 00 yh d? 85 AS TST KPAD_ STATU | 
~ 36 12 00 of MOVL #2, SUCCEED 1063, 
31 FY 90204 37s: CMPL COUNT, #255 g Wet : 
QOOO00FF 8F 08 AG 8) Biemy 588: CA COU ; | 
COUN : : 
noc tS i 398 BGes weOTS INVASCCHR > 1084. : 
000000006 8F DD B 598: BTS$MSG_BELL : ; 

000000006 00 O1 FB 0091 CALLS a: 


f 4 
EDTSCHMEXCOM EDTSCHMEXCOM = execute certain change-mode comm 15-Sep-1984 52:4 VAX-11 Bliss-32 V4.0-74 Page E 
v04-000 EDTSSEXE_CHMCMD1 = execute certain change-sode 12-808=3 382 93:35:53 DISKSVMSMASTER: CEDT. SRC CHMEXCOM.BLI:1° 8 Vv 
57 D4 8 CLRL SUCCEED : 1085 : 
4A 11 ° A BRB 28S : 1081 | : 
01 oD C 40$ PUSHL #1 : 1089 | : 
04 AE 08 AC b0 0 5 MOVL COUNT, 4(SP) : : 
04 AE F PUSHAB : : 
000000006 00 FB 00236 CALLS #2, EDTSS$INS_STR : | : 
0224 31 00230 41$: BRW : 1088. ; 
000000006 00 0 FS 0240 aes: CALLS #9 EDTS$$SUB_CMD : 1097 | : 
009B 31 00247 43$:  BRW 57$§ : | ; 
000000006 90 p 6 4A 44$ sit EDT$$G_DIR + 1106. ; 
000000006 09 p 09 2g stl EDT$$G_PST_CNT : : 
52 000000006 00 06 00 3A MOVL EDISSG_PST_CNT, I ; 1109 : 
000000006 00 00 FB 60 63 45$ CALLS #0, EDTSSCS_LEFT > 1110) : 
F6 2 4 0026A 46$ SOBGEQ 1, 45$ : : 
79 «11 00860 BRB : 1109) : 
000000006 00 00 FB OO26F 47$: CALLS #0, EDTSSCS_LEFT > 1113) : 
70 11 00276 48$ BRB : 0895 : 
69 08 CO 00278 49$ ADDL2 #8, EDTS$S$G_SHF : 1119 : 
50 69 DO 0027B MOVL EDT SSG SHF, RO + 1121) : 
OOOO7FFF = BF 50 01 Ogre CMPL RO, #32767 ; : 
19 18 00285 BGEG )36=s«S1$ ; : 
50 D5 00287 TSTL RO : : 
15 19 00289 BLSS 51$ ; 3 
15 11 00288 BRB 52$ : 1123, : 
69 08 C2 0028) 50$: SUBL2 #8, EDTS$$G_SHF + 1131 : 
50 69 DO 00 30 MOVL EDT SSG SHF, RO : 1133 : 
QOOO7FFF BF 50 D1 0029 CMPL RO, #32767 : : 
04 18 009A BGEG 6s : : 
50 05 0029¢ TSTL RO : | : 
02 18 0029 BGEQ 52$ : : 
69 D4 002A0 518: CLRL EDT$$G_SHF : 3 
000000006 00 01 DO O02A2 52$: MOVL #1, EDT$$G_SCR_CHGD + 1135 : 
38 000000006 00 £8 002A9 BLBS EDIS$G_TRUN, 58$ : 1137) : 
0171 31 00280 BRW 73$ : : 
50 000000006 00 9€ 00283 53$: MOVAB EDTS$$T_LN_BUF, RO + 1147) : 
50 000000006 00 D1 O02BA CMPL  EDTSS$ALN=PTR, RO ; ; 
08 12 002C1 BNEQ  54$ ; : 
000000006 00 05 002C3 TSTL  EDTS$G_TAB_SIZ > 1148) : 
0S 1 88 C9 BNEQ 55$ : 3 
50 08 bg 9 CB 54$: MOVL 8, TAB_COUNT > 1150 | : 
50 000000006 00 000000006 8 C5 00 56 55$: MULL3 EDT$$G_TAB_SIZ, EDT$$G_TAB_LVL, TAB_COUNT =; 1152. : 
50 DD 0020DC 568: PUSHL TAB_COONT ; 1154 | : 
000000006 00 91 FB 0 DE CALLS #1, EDTS$MOV_TOCOL : : 
57 0 pO O02E5 57$: MOVL RO, SUCCEED : | : 
6C 11 00268 58$: BRB 67$§ > 0895 | : 
000000006 00 b O2EA 59$: TSTL EDTS$G_TAB $12 > 1166 | : 
46 1 9 : BEQL $ : : 
06 AE OF F PUSHAB COL > 1166 | : 
OC AE 9F OO2F PUSHAB tN s $ 
000000006 00 02 FB O0eF CALLS @# EDTSSSC_CPUCSPOS : : 
04 Ae 69 CO OOCFF ADDL2 EDT $$G_SHF.~CO > 1167 | : 
52 000000006 00 p 303 MOVL EDT$$G-TAB SIZ, R2 > 1169 | : 
7E 00 04 AE 01 7A 0030A EMUL =o #1, COL, #0, (SP) ; : 


, Sab 
xecute certain change-mode comm 18-5 Sep =138 $3: 252:4 VAX-11 Bliss-32 V Pag 
14-Sep :22:2 DISKSVMSMASTER: atthe sae CHMEXCOM.BLI;1 
V 


4 
- - execute certain change-mode 984 
50 50 BE 10 EDI R2, (SP)+, RO, RO : : 
3 03 6 1S LORS 
OF ° 1 BEQL 61$ : : 
000000006 8F DD 00319 PUSHL HEDTS CLDNOTALN : : 
000000006 00 01 FB 0 1F 60$: CALLS #1, EDTSSMSG_BELL : : 
10 11 6 BRB 63$ : ; 
50 04 A 06 0 61$ MOVL COL, RO : : 
1 C BGEG 62$ : : 
D4 00 F CLRL_. R : ; 
000000006 00 50 c7 0 63s: DIVL3 R2, RO, EDT$$G_TAB_LVL : ; 
0129 31 00338 63$:  BRW 79$ : : 
50 000000006 00 1 C3 0 : 64$: SUBL3 #1, EDTS$$G_TAB_LVL, RO : ; 
: i BGEQ §6©6._—«65$ : : 
D4 00345 CLRL = RO : ; 
000000006 00 50 00 00347 65$ MOVL RO EDT$$G_TAB_LVL : : 
06 11 00 4 BRB 67$ : ; 
000000006 00 b6 0035 : INCL EDT$$G_TAB_LVL ; ; 
OODE 31 0036 67$ BRW 76$ : ; 
000000006 00 00 FB 00359 CALLS #0 EDTSSSC FULLSCLL : ; 
50 000000006 00 D0 00360 MOVL  EDT$$G_TI_TYP, RO : ; 
01 50 D1 00367 CMPL = RO +i : ; 
05 13 0036A BEQL 89 : ; 
02 50 Di 0036C CMPL = RO, #2 : ; 
Op 12 0036F BNEQ 70 : ; 
000000006 00 000000006 00 9 90371 69$: MOVAB EDISSTI_ WRSTR, EDTSSA_FMT_WRRUT : : 
000000006 00 00 FB 0037E 70$ CALLS #0, EDTS$STOP_WKINGMS : F 
000000006 00 000000006 00 9€ 00385 MOVAB EDTS$$TI_WRLN, CEDTSSA_ FMT_WRRUT : ; 
000000006 00 00 FB 00390 71$ CALLS 0 EDTSSREL CH ; : 
50 6B DO 00397 MOVL  EDTS$A_CUR_BOF, : : 
51 000000006 00 4 0039A MOVAB EDTS$$T-LN BU 3 : 
Oc a0 000000006 00 51 A3 003A1 SUBW3 = =R1, EDTSSA_LN_PTR, 12(RO) 3 3 
000000006 00 01 DO OO3AA MOVL #1, EDT$$G~EXT ; : 
000000006 00 00 FB 00381 CALLS #0, EDTSSERT CA ; F 
000000006 00 D4 00388 CLRL. = EDT$$G_EXT_ : : 
000000006 00 000000006 00 9€ O03BE MOVAB EDTS$T~FMT~BUF, EDTSSA_ FMT_CUR : 3 
000000006 00 00 FB 003C9 CALLS #0, EDTS$$GET TXTL : ; 
50 6B D0 00300 MOVL. EDTS$A_CUR BOF, ; ; 
51 000000006 00 9E 00303 MOVAB EDTS$$T~LN BUF, R1 : 3 
52 OC AO 3C 003DA MOVZWL 12(RO)> R2 : : 
000000006 00 51 52 1 003DE ADDL3 R2, R1, EDTSSA_LN_ Pr : : 
77 000000006 00 €E9 003E6 LBC ©=—- ED f$$G TI_SCROCL,~7 ; : 
000000006 00 DD O03 PUSHL EDTS$$G~SCR_LNS ; : 
43 D4 O03F CLRL. = (SP) ; ; 
000000006 00 02 FB 003F CALLS a2 EDTSS$SC_SETSCLLREG ; : 
66 11 O03FC BRB 79§ : : 
6A 05 OO3FE 72$: ‘STL EDISSA SEL_BUF : : 
28 1 90400 BNEQ 4$ ; : 
56 68 p 0408 MOVL_ EDTS$$A_CUR_BUF : : 
000000006 00 06 Ab 06 9949 MOVC3 #6, 6(R6) “Erést SEL_LN ; : 
6A 6 D O40E MOVL R DISSA. s ; : 
000000006 00 000000006 00 »bD 6 411 MOVL EDT$$A_LN Pin. “EDTSSA. SEL_POS ; : 
000000006 09 D O4i¢ TSTL DTS$A7 OL Bs ; : 
13 13 004 BEQL 6$ : : 
000000006 00 oi DO 00424 73$: MOVL = #1 guetsar a ; : 
A 11 00428 BRB ; : 
6A D4 0042D 748: CLRL  EDTSSA_SEL_BUF : : 


eagem 


000000006 00 
OE 


000000006 00 


16 
17 


18. 

n change-mode 14- 
96 11 0042F 

sett | D4 00451 
1 Ag ) 437 
05 1 4SA 

08 ac ) 43¢ 
D1 00435F 

0 12 00442 

0 4 00444 

50 £9 00448 

08 AC rE 044E 
11. 15 00451 

4 dO Bees 

8 11 0045A 

08 Ag D5 Beeee 
03 15 0045F 

FBF2 31 00461 

58 D1 00464 

B 13 00467 

8 D1 00469 

06 13 0046C 

D4 9 

DO 00474 

04 00477 


000000006 00 
0 57 


; Routine Size: 1144 bytes, Routine Base: 


1293 1 
724 1294 1 !<BLF/PAGE> 


CHMEXCOM = execute certain chenge sede comm 
TSSEXE_CHMCMD1 = execute certa 


-EDTSCODE + 0000 


78$: 


79$: 


80$: 


71986 93! 


74 


VAX= 
:2 DI 


X-11 8 
SKSVNN 

76$ 
EDT$$G_SEA_STRLEN 
XPLICTT 


COUNT 
CCEED, rT 

#0, EDTSSCHK._ CC 

RO, 78$ 

OUNT 

9$ 

#1, EDT$$G_CC_DONE 

79§ 

COUNT 

9$ 

3$ 

RB, #22 

80$ 

R8, #23 

80$ 

EDT$$G_VERT 

SUCCEEB, RO 


TER: Ebi she CHMEXCOM. Bui: 


Be Se Se Se Ge Se Se Ge Se Fe Se Se Fe Fe Se Ge Se Ge Be Se Be Fe Se 


ma 


Elapsed Time: 00:47.8 
Lines/CPU Min: 1911 
Lexemes/CPU-Min: 6328 
Memory Used: 277 pages 
Compivation Complete 


4 

ERTORIERCOR EDTSCHMEXCOM = execute certain change-mode comm 15-Sep-1984 $3736 348 VAX-11 Bliss-32 aed os Page 21. 

v04 EDTSSEXE_CHMCMD1 = execute certain change-mode 14-Sep-1984 12:22:2 DISKSVMSMASTER:CEDT.SRCJCHMEXCOM.BLI;1 (4), 
; ZT g 1295 1 END ! of module EDTSCHMEXCOM ; 
3 £ 1 38 1 : 
: 728 1297 0 ELUDOM : 
; PSECT SUMMARY ; 
; Name Bytes Attributes : 
; _EDTSCODE 1144 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
H Library Statistics | ; 
pho oe Go Oe ee oa eeenee Syaboelg ccceee== Pages Processing : 
; File Total Loaded Percent Mapped Time ‘ 
; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 86 22 40 00:00.2 | ; 
3 ~$255$DUA28: CEDT.SRCIPSECTS.L32;1 1 50 7 00:00.1 : 
; 7$255$DUA28:CEDT. SRCISUPPORTS.L 32; 1 1 50 5 00:00.1 | ; 
Pr 
| : 
r! 
; COMMAND QUALIFIERS 
; SE Se een Re BALD EET EAE, SPT SME SE DPROTRLEO MEL SOM. POSER VED ORIOLE NCE MSRC$: CHMEXCOM.BLI/UPDATE=(ENHS: CHME : 
Size: 1144 code_+ 0 data bytes | 3 
Run Time | 3 
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